home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•The Simulator•
/
Pharaoh v1.0 •••••
/
Pharaoh
/
Pharaoh.rsrc
/
CODE_7.txt
< prev
next >
Wrap
Text File
|
1988-04-23
|
21KB
|
371 lines
# near model CODE resource
# jump table entries: 760-765 (6 of them)
export_95:
00000000 4E56 0000 link A6, 0
00000004 4A6D EBEA tst.w [A5 - 0x1416]
00000008 6612 bne +0x14 /* 0000001C */
0000000A 3F3C 0424 move.w -[A7], 0x424
0000000E 4EAD 00A2 jsr [A5 + 0xA2 /* export_16 */]
00000012 544F addq.w A7, 2
00000014 4A40 tst.w D0
00000016 6704 beq +0x6 /* 0000001C */
00000018 4EAD 0322 jsr [A5 + 0x322 /* export_96 */]
label0000001C:
0000001C 42AD EB70 clr.l [A5 - 0x1490]
00000020 4EAD 03BA jsr [A5 + 0x3BA /* export_115 */]
00000024 4E5E unlink A6
00000026 4E75 rts
export_97:
00000028 4E56 FFFC link A6, -0x0004
0000002C 3F3C 0424 move.w -[A7], 0x424
00000030 4EAD 00A2 jsr [A5 + 0xA2 /* export_16 */]
00000034 544F addq.w A7, 2
00000036 4A40 tst.w D0
00000038 6702 beq +0x4 /* 0000003C */
0000003A 617C bsr +0x7E /* 000000B8 */
label0000003C:
0000003C 4EBA 02C4 jsr [PC + 0x2C4 /* 00000302 */]
00000040 4A40 tst.w D0
00000042 6710 beq +0x12 /* 00000054 */
00000044 4EAD 03BA jsr [A5 + 0x3BA /* export_115 */]
00000048 2F2D EB70 move.l -[A7], [A5 - 0x1490]
0000004C 3F2D EFB2 move.w -[A7], [A5 - 0x104E]
00000050 6108 bsr +0xA /* 0000005A */
00000052 5C4F addq.w A7, 6
label00000054:
00000054 7000 moveq.l D0, 0x00
00000056 4E5E unlink A6
00000058 4E75 rts
fn0000005A:
0000005A 4E56 FFFC link A6, -0x0004
0000005E 2F2E 000A move.l -[A7], [A6 + 0xA]
00000062 3F2E 0008 move.w -[A7], [A6 + 0x8]
00000066 6124 bsr +0x26 /* 0000008C */
00000068 5C4F addq.w A7, 6
0000006A 2D40 FFFC move.l [A6 - 0x4], D0
0000006E 2F2E FFFC move.l -[A7], [A6 - 0x4]
00000072 4EAD 00CA jsr [A5 + 0xCA /* export_21 */]
00000076 584F addq.w A7, 4
00000078 2F2E FFFC move.l -[A7], [A6 - 0x4]
0000007C 4EAD 0242 jsr [A5 + 0x242 /* export_68 */]
00000080 584F addq.w A7, 4
00000082 4EAD 02E2 jsr [A5 + 0x2E2 /* export_88 */]
00000086 7001 moveq.l D0, 0x01
00000088 4E5E unlink A6
0000008A 4E75 rts
fn0000008C:
0000008C 4E56 FFFC link A6, -0x0004
00000090 3B6E 0008 EFB2 move.w [A5 - 0x104E], [A6 + 0x8]
00000096 2B6E 000A EB70 move.l [A5 - 0x1490], [A6 + 0xA]
0000009C 42A7 clr.l -[A7]
0000009E 4EAD 025A jsr [A5 + 0x25A /* export_71 */]
000000A2 584F addq.w A7, 4
000000A4 2D40 FFFC move.l [A6 - 0x4], D0
000000A8 2F2E FFFC move.l -[A7], [A6 - 0x4]
000000AC 6158 bsr +0x5A /* 00000106 */
000000AE 584F addq.w A7, 4
000000B0 202E FFFC move.l D0, [A6 - 0x4]
000000B4 4E5E unlink A6
000000B6 4E75 rts
export_96:
fn000000B8:
000000B8 4E56 FFFC link A6, -0x0004
000000BC 42A7 clr.l -[A7]
000000BE 4EAD 025A jsr [A5 + 0x25A /* export_71 */]
000000C2 584F addq.w A7, 4
000000C4 2D40 FFFC move.l [A6 - 0x4], D0
000000C8 2F2E FFFC move.l -[A7], [A6 - 0x4]
000000CC 4EAD 00D2 jsr [A5 + 0xD2 /* export_22 */]
000000D0 584F addq.w A7, 4
000000D2 4AAD EB70 tst.l [A5 - 0x1490]
000000D6 6604 bne +0x6 /* 000000DC */
000000D8 4EBA 01C6 jsr [PC + 0x1C6 /* 000002A0 */]
label000000DC:
000000DC 2F2E FFFC move.l -[A7], [A6 - 0x4]
000000E0 4EBA 0106 jsr [PC + 0x106 /* 000001E8 */]
000000E4 584F addq.w A7, 4
000000E6 2F2E FFFC move.l -[A7], [A6 - 0x4]
000000EA 4EAD 0242 jsr [A5 + 0x242 /* export_68 */]
000000EE 584F addq.w A7, 4
000000F0 4E5E unlink A6
000000F2 4E75 rts
export_98:
000000F4 4E56 0000 link A6, 0
000000F8 4EBA 01A6 jsr [PC + 0x1A6 /* 000002A0 */]
000000FC 4A40 tst.w D0
000000FE 6702 beq +0x4 /* 00000102 */
00000100 61B6 bsr -0x48 /* 000000B8 */
label00000102:
00000102 4E5E unlink A6
00000104 4E75 rts
fn00000106:
00000106 4E56 0000 link A6, 0
0000010A 4EAD 03B2 jsr [A5 + 0x3B2 /* export_114 */]
0000010E 486D EFB0 pea.l [A5 - 0x1050]
00000112 3F2D EFB2 move.w -[A7], [A5 - 0x104E]
00000116 2F2D EB70 move.l -[A7], [A5 - 0x1490]
0000011A 4EAD 0152 jsr [A5 + 0x152 /* export_38 */]
0000011E 4FEF 000A lea.l A7, [A7 + 0xA]
00000122 486D EFB4 pea.l [A5 - 0x104C]
00000126 3F2D EFB0 move.w -[A7], [A5 - 0x1050]
0000012A 4EAD 016A jsr [A5 + 0x16A /* export_41 */]
0000012E 5C4F addq.w A7, 6
00000130 2F2D EFB4 move.l -[A7], [A5 - 0x104C]
00000134 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000138 4EAD 0262 jsr [A5 + 0x262 /* export_72 */]
0000013C 504F addq.w A7, 8
0000013E 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000142 4EAD 024A jsr [A5 + 0x24A /* export_69 */]
00000146 584F addq.w A7, 4
00000148 246E 0008 movea.l A2, [A6 + 0x8]
0000014C 2F12 move.l -[A7], [A2]
0000014E 486D EFB4 pea.l [A5 - 0x104C]
00000152 3F2D EFB0 move.w -[A7], [A5 - 0x1050]
00000156 4EAD 015A jsr [A5 + 0x15A /* export_39 */]
0000015A 4FEF 000A lea.l A7, [A7 + 0xA]
0000015E 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000162 4EAD 0252 jsr [A5 + 0x252 /* export_70 */]
00000166 584F addq.w A7, 4
00000168 3F2D EFB0 move.w -[A7], [A5 - 0x1050]
0000016C 4EAD 014A jsr [A5 + 0x14A /* export_37 */]
00000170 544F addq.w A7, 2
00000172 4E5E unlink A6
00000174 4E75 rts
00000176 4E56 FFFC link A6, -0x0004
0000017A 4EAD 03B2 jsr [A5 + 0x3B2 /* export_114 */]
0000017E 42A7 clr.l -[A7]
00000180 4EAD 025A jsr [A5 + 0x25A /* export_71 */]
00000184 584F addq.w A7, 4
00000186 2D40 FFFC move.l [A6 - 0x4], D0
0000018A 42A7 clr.l -[A7]
0000018C 3F3C 0001 move.w -[A7], 0x1
00000190 3F2E 0008 move.w -[A7], [A6 + 0x8]
00000194 4EAD 0182 jsr [A5 + 0x182 /* export_44 */]
00000198 504F addq.w A7, 8
0000019A 486D EFB4 pea.l [A5 - 0x104C]
0000019E 3F2E 0008 move.w -[A7], [A6 + 0x8]
000001A2 4EAD 016A jsr [A5 + 0x16A /* export_41 */]
000001A6 5C4F addq.w A7, 6
000001A8 2F2D EFB4 move.l -[A7], [A5 - 0x104C]
000001AC 2F2E FFFC move.l -[A7], [A6 - 0x4]
000001B0 4EAD 0262 jsr [A5 + 0x262 /* export_72 */]
000001B4 504F addq.w A7, 8
000001B6 2F2E FFFC move.l -[A7], [A6 - 0x4]
000001BA 4EAD 024A jsr [A5 + 0x24A /* export_69 */]
000001BE 584F addq.w A7, 4
000001C0 246E FFFC movea.l A2, [A6 - 0x4]
000001C4 2F12 move.l -[A7], [A2]
000001C6 486D EFB4 pea.l [A5 - 0x104C]
000001CA 3F2E 0008 move.w -[A7], [A6 + 0x8]
000001CE 4EAD 015A jsr [A5 + 0x15A /* export_39 */]
000001D2 4FEF 000A lea.l A7, [A7 + 0xA]
000001D6 2F2E FFFC move.l -[A7], [A6 - 0x4]
000001DA 4EAD 0252 jsr [A5 + 0x252 /* export_70 */]
000001DE 584F addq.w A7, 4
000001E0 202E FFFC move.l D0, [A6 - 0x4]
000001E4 4E5E unlink A6
000001E6 4E75 rts
fn000001E8:
000001E8 4E56 FFFE link A6, -0x0002
000001EC 4EAD 03B2 jsr [A5 + 0x3B2 /* export_114 */]
000001F0 486D EFB0 pea.l [A5 - 0x1050]
000001F4 3F2D EFB2 move.w -[A7], [A5 - 0x104E]
000001F8 2F2D EB70 move.l -[A7], [A5 - 0x1490]
000001FC 4EAD 0152 jsr [A5 + 0x152 /* export_38 */]
00000200 4FEF 000A lea.l A7, [A7 + 0xA]
00000204 3D40 FFFE move.w [A6 - 0x2], D0
00000208 0C6E FFD5 FFFE cmpi.w [A6 - 0x2], 0xFFD5
0000020E 6630 bne +0x32 /* 00000240 */
00000210 2F3C 5048 5356 move.l -[A7], 0x50485356 /* 'PHSV' */
00000216 2F3C 5048 4152 move.l -[A7], 0x50484152 /* 'PHAR' */
0000021C 3F2D EFB2 move.w -[A7], [A5 - 0x104E]
00000220 2F2D EB70 move.l -[A7], [A5 - 0x1490]
00000224 4EAD 013A jsr [A5 + 0x13A /* export_35 */]
00000228 4FEF 000E lea.l A7, [A7 + 0xE]
0000022C 486D EFB0 pea.l [A5 - 0x1050]
00000230 3F2D EFB2 move.w -[A7], [A5 - 0x104E]
00000234 2F2D EB70 move.l -[A7], [A5 - 0x1490]
00000238 4EAD 0152 jsr [A5 + 0x152 /* export_38 */]
0000023C 4FEF 000A lea.l A7, [A7 + 0xA]
label00000240:
00000240 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000244 4EAD 024A jsr [A5 + 0x24A /* export_69 */]
00000248 584F addq.w A7, 4
0000024A 2F2E 0008 move.l -[A7], [A6 + 0x8]
0000024E 4EAD 0192 jsr [A5 + 0x192 /* export_46 */]
00000252 584F addq.w A7, 4
00000254 2B40 EFB4 move.l [A5 - 0x104C], D0
00000258 246E 0008 movea.l A2, [A6 + 0x8]
0000025C 2F12 move.l -[A7], [A2]
0000025E 486D EFB4 pea.l [A5 - 0x104C]
00000262 3F2D EFB0 move.w -[A7], [A5 - 0x1050]
00000266 4EAD 0162 jsr [A5 + 0x162 /* export_40 */]
0000026A 4FEF 000A lea.l A7, [A7 + 0xA]
0000026E 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000272 4EAD 0252 jsr [A5 + 0x252 /* export_70 */]
00000276 584F addq.w A7, 4
00000278 2F2D EFB4 move.l -[A7], [A5 - 0x104C]
0000027C 3F2D EFB0 move.w -[A7], [A5 - 0x1050]
00000280 4EAD 017A jsr [A5 + 0x17A /* export_43 */]
00000284 5C4F addq.w A7, 6
00000286 3F2D EFB0 move.w -[A7], [A5 - 0x1050]
0000028A 4EAD 014A jsr [A5 + 0x14A /* export_37 */]
0000028E 544F addq.w A7, 2
00000290 3F2D EFB2 move.w -[A7], [A5 - 0x104E]
00000294 42A7 clr.l -[A7]
00000296 4EAD 0142 jsr [A5 + 0x142 /* export_36 */]
0000029A 5C4F addq.w A7, 6
0000029C 4E5E unlink A6
0000029E 4E75 rts
fn000002A0:
000002A0 4E56 0000 link A6, 0
000002A4 2F2D EB74 move.l -[A7], [A5 - 0x148C]
000002A8 487A 0042 pea.l [PC + 0x42 /* 000002EC, value 0x11536176, pstring "Save Pharaoh Game" */]
000002AC 4AAD EB70 tst.l [A5 - 0x1490]
000002B0 6706 beq +0x8 /* 000002B8 */
000002B2 262D EB70 move.l D3, [A5 - 0x1490]
000002B6 6006 bra +0x8 /* 000002BE */
label000002B8:
000002B8 45FA 0045 lea.l A2, [PC + 0x45 /* 000002FF, value 0x4E 'N', cstring "" */]
000002BC 260A move.l D3, A2
label000002BE:
000002BE 2F03 move.l -[A7], D3
000002C0 42A7 clr.l -[A7]
000002C2 486D EF66 pea.l [A5 - 0x109A]
000002C6 4EAD 01AA jsr [A5 + 0x1AA /* export_49 */]
000002CA 162D EF66 move.b D3, [A5 - 0x109A]
000002CE 4883 ext.w D3
000002D0 4A43 tst.w D3
000002D2 6606 bne +0x8 /* 000002DA */
000002D4 7000 moveq.l D0, 0x00
label000002D6:
000002D6 4E5E unlink A6
000002D8 4E75 rts
label000002DA:
000002DA 3B6D EF6C EFB2 move.w [A5 - 0x104E], [A5 - 0x1094]
000002E0 45ED EF70 lea.l A2, [A5 - 0x1090]
000002E4 2B4A EB70 move.l [A5 - 0x1490], A2
000002E8 7001 moveq.l D0, 0x01
000002EA 60EA bra -0x14 /* 000002D6 */
000002EC 1153 6176 move.b [A0 + 0x6176], [A3]
000002F0 6520 bcs +0x22 /* 00000312 */
000002F2 5068 6172 addq.w [A0 + 0x6172], 8
000002F6 616F bsr +0x71 /* 00000367 */
000002F8 6820 bvc +0x22 /* 0000031A */
000002FA 4761 chk.w D3, -[A1]
000002FC 6D65 blt +0x67 /* 00000363 */
000002FE 0000 0000 ori.b D0, 0x0
fn00000302:
00000302 4E56 0000 link A6, 0
00000306 4EAD 03B2 jsr [A5 + 0x3B2 /* export_114 */]
0000030A 2F2D EB74 move.l -[A7], [A5 - 0x148C]
0000030E 42A7 clr.l -[A7]
00000310 42A7 clr.l -[A7]
label00000312:
00000312 3F3C 0001 move.w -[A7], 0x1
00000316 486D EB78 pea.l [A5 - 0x1488]
label0000031A:
0000031A 42A7 clr.l -[A7]
0000031C 486D EF66 pea.l [A5 - 0x109A]
00000320 4EAD 01B2 jsr [A5 + 0x1B2 /* export_50 */]
00000324 162D EF66 move.b D3, [A5 - 0x109A]
00000328 4883 ext.w D3
0000032A 4A43 tst.w D3
0000032C 6606 bne +0x8 /* 00000334 */
0000032E 7000 moveq.l D0, 0x00
label00000330:
00000330 4E5E unlink A6
00000332 4E75 rts
label00000334:
00000334 3B6D EF6C EFB2 move.w [A5 - 0x104E], [A5 - 0x1094]
0000033A 45ED EF70 lea.l A2, [A5 - 0x1090]
0000033E 2B4A EB70 move.l [A5 - 0x1490], A2
00000342 7001 moveq.l D0, 0x01
00000344 60EA bra -0x14 /* 00000330 */
export_99:
00000346 4E56 FFFC link A6, -0x0004
0000034A 486D FED2 pea.l [A5 - 0x12E]
0000034E 486D FFD2 pea.l [A5 - 0x2E]
00000352 486D EFB8 pea.l [A5 - 0x1048]
00000356 A9F5 syscall GetAppParms
00000358 4267 clr.w -[A7]
0000035A 3F2D FFD2 move.w -[A7], [A5 - 0x2E]
0000035E 486D FFD4 pea.l [A5 - 0x2C]
00000362 4EAD 01BA jsr [A5 + 0x1BA /* export_51 */]
00000366 301F move.w D0, [A7]+
00000368 246D EFB8 movea.l A2, [A5 - 0x1048]
0000036C 2252 movea.l A1, [A2]
0000036E 3D69 0002 FFFE move.w [A6 - 0x2], [A1 + 0x2]
00000374 246D EFB8 movea.l A2, [A5 - 0x1048]
00000378 2252 movea.l A1, [A2]
0000037A 3D51 FFFC move.w [A6 - 0x4], [A1]
0000037E 4A6E FFFE tst.w [A6 - 0x2]
00000382 6606 bne +0x8 /* 0000038A */
00000384 7000 moveq.l D0, 0x00
label00000386:
00000386 4E5E unlink A6
00000388 4E75 rts
label0000038A:
0000038A 4A6E FFFC tst.w [A6 - 0x4]
0000038E 6644 bne +0x46 /* 000003D4 */
00000390 0C6E 0001 FFFE cmpi.w [A6 - 0x2], 0x1
00000396 663C bne +0x3E /* 000003D4 */
00000398 246D EFB8 movea.l A2, [A5 - 0x1048]
0000039C 2252 movea.l A1, [A2]
0000039E 0CA9 5048 5356 0006 cmpi.l [A1 + 0x6], 0x50485356 /* 'PHSV' */
000003A6 670E beq +0x10 /* 000003B6 */
000003A8 3F3C 0425 move.w -[A7], 0x425
000003AC 4EAD 0092 jsr [A5 + 0x92 /* export_14 */]
000003B0 544F addq.w A7, 2
000003B2 7000 moveq.l D0, 0x00
000003B4 60D0 bra -0x2E /* 00000386 */
label000003B6:
000003B6 246D EFB8 movea.l A2, [A5 - 0x1048]
000003BA 2252 movea.l A1, [A2]
000003BC 4869 000C pea.l [A1 + 0xC]
000003C0 246D EFB8 movea.l A2, [A5 - 0x1048]
000003C4 2252 movea.l A1, [A2]
000003C6 3F29 0004 move.w -[A7], [A1 + 0x4]
000003CA 4EBA FC8E jsr [PC - 0x372 /* 0000005A */]
000003CE 5C4F addq.w A7, 6
000003D0 7001 moveq.l D0, 0x01
000003D2 60B2 bra -0x4C /* 00000386 */
label000003D4:
000003D4 4A6E FFFC tst.w [A6 - 0x4]
000003D8 670A beq +0xC /* 000003E4 */
000003DA 3F3C 0426 move.w -[A7], 0x426
000003DE 4EAD 0092 jsr [A5 + 0x92 /* export_14 */]
000003E2 544F addq.w A7, 2
label000003E4:
000003E4 0C6E 0001 FFFE cmpi.w [A6 - 0x2], 0x1
000003EA 670A beq +0xC /* 000003F6 */
000003EC 3F3C 0427 move.w -[A7], 0x427
000003F0 4EAD 0092 jsr [A5 + 0x92 /* export_14 */]
000003F4 544F addq.w A7, 2
label000003F6:
000003F6 7000 moveq.l D0, 0x00
000003F8 608C bra -0x72 /* 00000386 */
export_100:
000003FA 4E56 FFEE link A6, -0x0012
000003FE 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000402 4EAD 0292 jsr [A5 + 0x292 /* export_78 */]
00000406 584F addq.w A7, 4
00000408 486E FFF0 pea.l [A6 - 0x10]
0000040C 4267 clr.w -[A7]
0000040E 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000412 4EAD 0172 jsr [A5 + 0x172 /* export_42 */]
00000416 4FEF 000A lea.l A7, [A7 + 0xA]
0000041A 3D40 FFEE move.w [A6 - 0x12], D0
0000041E 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000422 4EAD 02B2 jsr [A5 + 0x2B2 /* export_82 */]
00000426 584F addq.w A7, 4
00000428 4A6E FFEE tst.w [A6 - 0x12]
0000042C 6606 bne +0x8 /* 00000434 */
0000042E 303C 0001 move.w D0, 0x1
00000432 6002 bra +0x4 /* 00000436 */
label00000434:
00000434 4240 clr.w D0
label00000436:
00000436 4E5E unlink A6
00000438 4E75 rts